home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / basic / iqb9103.zip / ISSHARE.BAS < prev    next >
Encoding:
BASIC Source File  |  1991-03-08  |  302 b   |  17 lines
  1. ' $INCLUDE: 'QB.BI'
  2. DIM Regs AS RegType
  3.  
  4.   Regs.AX = &H1000
  5.   CALL Interrupt (&H2F, Regs, Regs)
  6.   AL = Regs.AX MOD 256
  7.  
  8.   SELECT CASE AL
  9.     CASE 0
  10.         PRINT "SHARE is not loaded."
  11.     CASE 255
  12.         Print "SHARE is loaded."
  13.     CASE ELSE
  14.         PRINT "I am confused. AL = ";AL
  15.   END SELECT
  16.   END
  17.